home *** CD-ROM | disk | FTP | other *** search
/ Crosscountry USA Photo Safari / Crosscountry USA Photo Safari.iso / Data / cc_base / pak00_16bit_f.pk3 / anim / speed_limit / fixup_offsets.pl
Perl Script  |  2003-12-19  |  533b  |  17 lines
  1. #!/usr/bin/perl
  2.  
  3. for $frame (qw(00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15)) {
  4.   for $speed (qw(30 35 55 60 65 70 75)) {
  5.     for $dn (qw(day night)) {
  6.       open  FH, ">speed_limit_${speed}/speedlimit_${speed}_${dn}_00${frame}.pcx.p";
  7.       print FH "{OffsetX=-${frame};}";
  8.       close FH;
  9.  
  10.       # screw it rewrite anm.p at the same time because of order though we do this per frame BLAH
  11.       open  FH, ">speed_limit_${speed}/speedlimit_${speed}_${dn}.anm.p";
  12.       print FH "{}";
  13.       close FH;
  14.     }
  15.   }
  16. }
  17.